home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 February / EnigmA AMIGA RUN 15 (1997)(G.R. Edizioni)(IT)[!][issue 1997-02][PLANET CD V].iso / enigma / earcd / comm / comm5 / awbmltym.lha / AWEBmailtoYAM / scripts / FindYam.rexx < prev    next >
OS/2 REXX Batch file  |  1996-09-27  |  468b  |  23 lines
  1. /* AWEBmailtoYAM V2 supportscript  ©1996 ALeX Kazik*/
  2. OPTIONS RESULTS
  3.  
  4. IF ~SHOW('P','YAM') THEN DO  
  5.     CALL OPEN(1,'T:StartYAM',w)
  6.     CALL WRITELN(1,"stack 8196")
  7.     CALL WRITELN(1,"run <> NIL: YAM:YAM")
  8.     CALL CLOSE(1)
  9.     ADDRESS COMMAND 'execute <>NIL: T:StartYAM'
  10.     ADDRESS COMMAND 'delete <>NIL: T:StartYAM'
  11.     i = 15
  12.     DO UNTIL (SHOW('P','YAM')) | (i=0)
  13.         ADDRESS COMMAND 'Wait 2'
  14.         i = i - 1
  15.     END
  16.     IF ~SHOW('P','YAM') THEN DO  
  17.         EXIT 5
  18.     END
  19.     ADDRESS 'YAM' QUIT
  20. END
  21.  
  22. EXIT 0
  23.